﻿Public Class massex
    Private sexID = Nothing
    Private sexDesc = Nothing
    Private sexStatus = Nothing
    Private selectMassex = "SELECT `sex` as 'รหัสเพศ', `sexdesc` as 'เพศ',`status` as 'สถานะการเปิดใช้งาน' FROM massex"
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property sexID_ As Integer
        Get
            Return sexID
        End Get
        Set(value As Integer)
            sexID = value
        End Set
    End Property

    Property sexDesc_ As String
        Get
            Return sexDesc
        End Get
        Set(value As String)
            sexDesc = value
        End Set
    End Property

    Property sexStatus_ As Boolean
        Get
            Return sexStatus
        End Get
        Set(value As Boolean)
            If value = True Then
                sexStatus = 1
            Else
                sexStatus = 0
            End If
        End Set
    End Property

    Property selectMassex_ As String
        Get
            Return selectMassex
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMassexData()
        If sexDesc <> "" Then
            If TypeOf sexDesc Is String Then
                If connect.GetTable("SELECT sexdesc FROM massex WHERE sexdesc = '" & sexDesc & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลรหัสเพศนี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim sexID As Integer

                        sexID = connect.ExecuteScalar("INSERT INTO massex (sexdesc, status) VALUES ('" & sexDesc & "', '" & sexStatus & "'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASSEX (SEX, SEXDESC, STATUS) VALUES ('" & sexID & "', '" & sexDesc & "', '" & sexStatus & "')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูล Discharge เรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีข้อมูลเพศนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub editMassexData()
        If sexID > 0 And sexDesc <> "" Then
            If TypeOf sexDesc Is String Then
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()

                    connect.ExecuteNonQuery("UPDATE massex SET sexdesc = '" & sexDesc & "', status = '" & sexStatus & "' WHERE sex = '" & sexID & "'")
                    'connectlocal.ExecuteNonQuery("UPDATE MASSEX SET SEXDESC = '" & sexDesc & "', STATUS = '" & sexStatus & "' WHERE SEX = '" & sexID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลเพศเรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเพศนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try

                connect.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

End Class
